home *** CD-ROM | disk | FTP | other *** search
/ In Focus Guide to Better Photography / In Focus Guide to Better Photography.iso / port.dxr / 00384_• sound.ls < prev    next >
Encoding:
Text File  |  1997-07-07  |  2.2 KB  |  63 lines
  1. global theFileCode, sndPath
  2.  
  3. on updateSoundButton
  4.   if getComment() <> #none then
  5.     set the visible of sprite 14 to 1
  6.   else
  7.     sound stop 2
  8.     set the visible of sprite 14 to 0
  9.   end if
  10. end
  11.  
  12. on sayComment
  13.   set theSound to getComment()
  14.   put theSound && getPortraitCast(theFileCode)
  15.   if theSound <> #none then
  16.     sound playFile 2, sndPath & theSound
  17.   end if
  18. end
  19.  
  20. on getComment
  21.   set portraitPict to getPortraitCast(theFileCode)
  22.   set commentList to [1: 1]
  23.   addProp(commentList, "p1b1-000.pic", "VO86.aif")
  24.   addProp(commentList, "p2b1-000.pic", "VO86.aif")
  25.   addProp(commentList, "p3b1-000.pic", "VO86.aif")
  26.   addProp(commentList, "p4b1-000.pic", "VO86.aif")
  27.   addProp(commentList, "p1n1-000.pic", "VO86.aif")
  28.   addProp(commentList, "p2n1-000.pic", "VO86.aif")
  29.   addProp(commentList, "p3n1-000.pic", "VO86.aif")
  30.   addProp(commentList, "p4n1-000.pic", "VO86.aif")
  31.   addProp(commentList, "p3b1-0B0.pic", "VO87.aif")
  32.   addProp(commentList, "p3b1-0B1.pic", "VO87.aif")
  33.   addProp(commentList, "p3n1-0B0.pic", "VO87.aif")
  34.   addProp(commentList, "p3n1-0B1.pic", "VO87.aif")
  35.   addProp(commentList, "p3b1-0A0.pic", "VO87.aif")
  36.   addProp(commentList, "p3b1-0A1.pic", "VO87.aif")
  37.   addProp(commentList, "p1n1-0A0.pic", "VO88.aif")
  38.   addProp(commentList, "p2n1-0A0.pic", "VO88.aif")
  39.   addProp(commentList, "p4n1-0A0.pic", "VO88.aif")
  40.   addProp(commentList, "p1n1-100.pic", "VO89.aif")
  41.   addProp(commentList, "p1n1-101.pic", "VO89.aif")
  42.   addProp(commentList, "p2n1-100.pic", "VO89.aif")
  43.   addProp(commentList, "p2n1-101.pic", "VO89.aif")
  44.   addProp(commentList, "p3n1-100.pic", "VO89.aif")
  45.   addProp(commentList, "p3n1-101.pic", "VO89.aif")
  46.   addProp(commentList, "p4n1-100.pic", "VO89.aif")
  47.   addProp(commentList, "p5n1-101.pic", "VO89.aif")
  48.   addProp(commentList, "p1b1-100.pic", "VO89.aif")
  49.   addProp(commentList, "p1b1-101.pic", "VO89.aif")
  50.   addProp(commentList, "p2b1-100.pic", "VO89.aif")
  51.   addProp(commentList, "p2b1-101.pic", "VO89.aif")
  52.   addProp(commentList, "p3b1-100.pic", "VO89.aif")
  53.   addProp(commentList, "p3b1-101.pic", "VO89.aif")
  54.   addProp(commentList, "p4b1-100.pic", "VO89.aif")
  55.   addProp(commentList, "p5b1-101.pic", "VO89.aif")
  56.   set taggedSound to getaProp(commentList, portraitPict)
  57.   if voidp(taggedSound) then
  58.     return #none
  59.   else
  60.     return taggedSound
  61.   end if
  62. end
  63.